home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LaserPrtHC.cpt / LP for QPS demo / background_11983.txt < prev    next >
Text File  |  1990-03-26  |  2KB  |  96 lines
  1. -- background: 11983 from stack: in
  2. -- bmap block id: 12468
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 00
  10. -- high flags: 0004
  11. -- rect: left=1 top=2 right=35 bottom=232
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 21
  16. -- text size: 24
  17. -- style flags: 256
  18. -- line height: 32
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: 0003
  25. -- rect: left=436 top=7 right=31 bottom=464
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 24317 / 24317
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: First
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect dissolve
  37.   go to first card
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 6 (button)
  43. -- low flags: 00
  44. -- high flags: 2003
  45. -- rect: left=467 top=1 right=35 bottom=509
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 14617 / 14617
  48. -- text alignment: 1
  49. -- font id: 18
  50. -- text size: 12
  51. -- style flags: 256
  52. -- line height: 16
  53. -- part name: Print
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   global Name1, Title1, Fontname, Fonttitle, corrected
  57.   set the cursor to 4
  58.   set the lockscreen to true
  59.  
  60.   stripIt 1
  61.   put corrected into Name1
  62.   stripIt 2
  63.   put corrected into Title1
  64.  
  65.   put bkgnd field 1 & "p" into ps
  66.   push card
  67.   go to card ps of this stack
  68.   set locktext of background field 2 to true
  69.  
  70.   put "/Name (" & Name1 & ") def" & return before first item of bkgnd field 2
  71.   put "/Title (" & Title1 & ") def" & return before first item of bkgnd field 2
  72.   put "/FontName /" & FontName & " def" && return before first item of bkgnd field 2
  73.   put "/TitleFontName /" & Fonttitle & " def" && return before first item of bkgnd field 2
  74.  
  75.   --put "gsave initmatrix" & return before first item of bkgnd field 2
  76.  
  77.   SendPS bg fld 2 ,true,true
  78.   --demosendHPS 0,2,1,1
  79.   --set style of background field 2 to transparent
  80.   --set textSize of background field 2 to 1
  81.   --doMenu "Print Card"
  82.   --open printing with dialog
  83.   --print this card
  84.   --close printing
  85.   --set textSize of background field 2 to 9
  86.   -- set style of background field 2 to scrolling
  87.  
  88.   repeat until char 1 of bkgnd field 2 = "%"
  89.     delete line 1 of bkgnd field 2
  90.   end repeat
  91.  
  92.   pop card
  93.  
  94. end mouseUp
  95.  
  96.